home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / prodpack.zip / DB4PPSRC.EXE / DOT.PRG < prev    next >
Text File  |  1993-05-04  |  855b  |  27 lines
  1. *' $Header: $
  2. FUNCTION Dot        && Call Dot Prompt in a Window
  3. PARAMETER plNoClear
  4. *-----------------------------------------------------------------------------
  5. *-- Notes......: Call Dot prompt in a window
  6. *-----------------------------------------------------------------------------
  7.   PRIVATE lTalk
  8.   ltalk = _TalkMode( .F. )            && Eliminates junk landing on design screen
  9.    DEFINE WINDOW w_mc from 10,0 TO 20,79 DOUBLE
  10.    ACTIVATE WINDOW w_mc
  11.    @ 8,0 SAY "Type: RESUME to Return"
  12.    SUSPEND
  13.    RELEASE WINDOW w_mc
  14.   IF lTalk
  15.     SET TALK ON
  16.   ENDIF
  17.   IF .NOT. plNoClear
  18.     KEYBOARD [{Ctrl-M}{Home}{Ctrl-Y}]
  19.   ENDIF
  20.  
  21. RETURN .T.
  22. *-- EOF: Dot()
  23. *'----------------------------------------------------------------------------
  24. *' $Log: $
  25. *'----------------------------------------------------------------------------
  26.  
  27.